Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/PASCAL/0635.ZIP/SETTIME.INC

Text File | 1987-07-24 | 443b | 18 lines

Procedure SetTime(Hours,Minutes,Seconds,Hundredths:Integer);
{** Sets the system time through a DOS call. Parameters are units of time **}
Type
  RegPack = Record
            AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer;
            End;
Var
  Registers : RegPack;
Begin
With Registers do
  Begin
  AX := $2D shl 8;
  CX := (Hours shl 8) + Minutes;
  DX := (Seconds shl 8) + Hundredths;
  End;
MSDos(Registers);
End; {SetTime}